Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 715,416.5 2,024.90 264,497.97 1,429,702.6 5,320.69 625,595.6 714,286.12 648.5
lp://AUSD/fa%3A%2F%2F4 110,149.1 8,838.37 58,507.88 220,298.2 41,036.09 281,755.0 110,149.10 100
lp://DOT/LCDOT 4,555,221.0 56,743.65 999,873.85 4,541,148.2 56,446.68 1,010,852.7 14,072.81 12.8
lp://ACA/AUSD 2,035,006.7 13,898.01 1,415,702.22 2,028,071.9 14,018.60 1,605,704.2 6,934.74 6.3
lp://AUSD/LCDOT 2,423,007.1 16,105.40 822,516.44 2,424,483.9 17,304.50 859,256.7 1,476.81 1.3

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,628,629.15 -597.23 -3,895.16 NA NA NA NA NA
lp://KINT/KUSD -1,300,225.06 -912.83 -8,056.05 NA NA NA NA NA
lp://PHA/KUSD -1,063,207.00 -2.99 -911.18 NA NA NA NA NA
lp://KUSD/KINT 1,289,045.06 -948.32 -8,116.25 9,401.93 1,616.47 24,682.05 1,279,643.13 NA
lp://KUSD/PHA 1,058,940.26 -352.59 -1,020.86 14,553.98 10.19 8,484.89 1,044,386.29 NA
lp://KUSD/KBTC 1,549,536.80 -1,107.93 -4,534.06 526,268.86 13,534.28 89,736.12 1,023,267.94 NA
lp://TAI/taiKSM 0.00 0.00 0.00 7,633.19 1,944.45 5,623.97 7,633.19 NA
lp://KAR/KSM 1,146,819.24 506.98 231,577.83 1,148,710.39 588.02 247,799.47 1,891.15 NA
lp://KUSD/LKSM 506,600.04 1,066.36 137,483.00 505,115.27 3,061.06 237,073.41 1,484.77 NA
lp://KUSD/KSM 581,131.15 965.88 493,762.64 581,638.20 997.28 518,855.64 507.06 NA
lp://KAR/LKSM 654,416.45 73.64 49,069.69 654,904.93 221.32 196,410.98 488.47 NA
lp://KSM/LKSM 116,990.65 4,488.36 20,747.40 116,554.62 7,738.49 26,320.77 436.03 NA
lp://KUSD/RMRK 12,173.26 263.41 23,265.53 11,938.37 423.09 23,483.39 234.89 NA
lp://KUSD/QTZ 18,231.85 2.81 10,394.70 18,436.93 2.84 19,026.58 205.09 NA
lp://KUSD/CSM 33,847.11 2,884.84 6,777.47 33,651.04 2,884.84 6,780.17 196.07 NA
lp://KUSD/ARIS2 181,108.51 92.72 17,957.14 181,284.50 3,645.51 44,422.53 175.99 NA
lp://KAR/QTZ 14,342.76 2.63 10,198.77 14,516.02 2.66 26,681.09 173.26 NA
lp://KSM/RMRK 7,195.17 78.20 6,958.20 7,061.92 108.59 8,320.35 133.25 NA
lp://KAR/KUSD 782,270.44 69.32 185,930.05 782,398.64 69.34 323,626.87 128.20 NA
lp://KSM/ARIS 53.43 5.26 64.52 107.06 9.73 203.29 53.63 NA
lp://KUSD/BNC 58,044.36 180.87 17,254.64 58,049.64 180.87 17,369.82 5.28 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```